home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / prgmming / pbmodx10 / modex.inc < prev    next >
Text File  |  1994-06-04  |  3KB  |  62 lines
  1. DEFINT A-Z
  2.  
  3.     ' ===== SCREEN RESOLUTIONS =====
  4.  
  5. %Mode320x200 = 0
  6. %Mode320x400 = 1
  7. %Mode360x200 = 2
  8. %Mode360x400 = 3
  9. %Mode320x240 = 4
  10. %Mode320x480 = 5
  11. %Mode360x240 = 6
  12. %Mode360x480 = 7
  13.  
  14.     ' ===== MODE X SETUP ROUTINES =====
  15.  
  16. DECLARE FUNCTION SET.VGA.MODEX ALIAS "SET_VGA_MODEX" (BYVAL ModeType, BYVAL MaxXpos, BYVAL MaxYpos, BYVAL Pages)
  17. DECLARE FUNCTION SET.MODEX ALIAS "SET_MODEX" (BYVAL Mode)
  18.  
  19.     ' ===== BASIC GRAPHICS PRIMITIVES =====
  20.  
  21. DECLARE SUB CLEAR.VGA.SCREEN ALIAS "CLEAR_VGA_SCREEN" (BYVAL ColorNum)
  22. DECLARE SUB SET.POINT ALIAS "SET_POINT" (BYVAL Xpos, BYVAL Ypos, BYVAL ColorNum)
  23. DECLARE FUNCTION READ.POINT ALIAS "READ_POINT" (BYVAL Xpos, BYVAL Ypos)
  24. DECLARE SUB FILL.BLOCK ALIAS "FILL_BLOCK" (BYVAL Xpos1, BYVAL Ypos1, BYVAL Xpos2, BYVAL Ypos2, BYVAL ColorNum)
  25. DECLARE SUB DRAW.LINE ALIAS "DRAW_LINE" (BYVAL Xpos1, BYVAL Ypos1, BYVAL Xpos2, BYVAL Ypos2, BYVAL ColorNum)
  26.  
  27.     ' ===== DAC COLOR REGISTER ROUTINES =====
  28.  
  29. DECLARE SUB SET.DAC.REGISTER ALIAS "SET_DAC_REGISTER" (BYVAL RegNo, BYVAL Red, BYVAL Green, BYVAL Blue)
  30. DECLARE SUB GET.DAC.REGISTER ALIAS "GET_DAC_REGISTER" (BYVAL RegNo, Red, Green, Blue)
  31. DECLARE SUB LOAD.DAC.REGISTERS ALIAS "LOAD_DAC_REGISTERS" (SEG PalData AS ANY, BYVAL StartReg, BYVAL EndReg, BYVAL VSync)
  32. DECLARE SUB READ.DAC.REGISTERS ALIAS "READ_DAC_REGISTERS" (SEG PalData AS ANY, BYVAL StartReg, BYVAL EndReg)
  33.  
  34.     ' ===== PAGE FLIPPING AND SCROLLING ROUTINES =====
  35.  
  36. DECLARE SUB SET.ACTIVE.PAGE ALIAS "SET_ACTIVE_PAGE" (BYVAL PageNo)
  37. DECLARE FUNCTION GET.ACTIVE.PAGE ALIAS "GET_ACTIVE_PAGE" ()
  38. DECLARE SUB SET.DISPLAY.PAGE ALIAS "SET_DISPLAY_PAGE" (BYVAL PageNo)
  39. DECLARE FUNCTION GET.DISPLAY.PAGE ALIAS "GET_DISPLAY_PAGE" ()
  40. DECLARE SUB SET.WINDOW ALIAS "SET_WINDOW" (BYVAL DisplayPage, BYVAL XOffset, BYVAL YOffset)
  41. DECLARE FUNCTION GET.X.OFFSET ALIAS "GET_X_OFFSET" ()
  42. DECLARE FUNCTION GET.Y.OFFSET ALIAS "GET_Y_OFFSET" ()
  43. DECLARE SUB SYNC.DISPLAY ALIAS "SYNC_DISPLAY" ()
  44.  
  45.     ' ===== TEXT DISPLAY ROUTINES =====
  46.  
  47. DECLARE SUB GPRINTC (BYVAL CharacterNum, BYVAL Xpos, BYVAL Ypos, BYVAL ColorF, BYVAL ColorB)
  48. DECLARE SUB TGPRINTC (BYVAL CharacterNum, BYVAL Xpos, BYVAL Ypos, BYVAL ColorF)
  49. DECLARE SUB PRINT.STR ALIAS "PRINT_STR" (BYVAL StrSg, BYVAL StrOfs, BYVAL MaxLen, BYVAL Xpos, BYVAL Ypos, BYVAL ColorF, BYVAL ColorB)
  50. DECLARE SUB TPRINT.STR ALIAS "TPRINT_STR" (BYVAL StrSg, BYVAL StrOfs, BYVAL MaxLen, BYVAL Xpos, BYVAL Ypos, BYVAL ColorF)
  51. DECLARE SUB SET.DISPLAY.FONT ALIAS "SET_DISPLAY_FONT" (SEG FontData AS ANY, BYVAL FontNumber)
  52.  
  53.     ' ===== BITMAP (SPRITE) DISPLAY ROUTINES =====
  54.  
  55. DECLARE SUB DRAW.BITMAP ALIAS "DRAW_BITMAP" (SEG Image AS ANY, BYVAL Xpos, BYVAL Ypos, BYVAL xWidth, BYVAL Height)
  56. DECLARE SUB TDRAW.BITMAP ALIAS "TDRAW_BITMAP" (SEG Image AS ANY, BYVAL Xpos, BYVAL Ypos, BYVAL xWidth, BYVAL Height)
  57.  
  58.     ' ==== VIDEO MEMORY to VIDEO MEMORY COPY ROUTINES =====
  59.  
  60. DECLARE SUB COPY.PAGE ALIAS "COPY_PAGE" (BYVAL SourcePage, BYVAL DestPage)
  61. DECLARE SUB COPY.BITMAP ALIAS "COPY_BITMAP" (BYVAL SourcePage, BYVAL X1, BYVAL Y1, BYVAL X2, BYVAL Y2, BYVAL DestPage, BYVAL DestX1, BYVAL DestY1)
  62.